0 REM--AHOY!--MAY ISSUE--COMMODARES #5--PROG PAGE 91
1 REM << PROBLEM 4-1 : SQUARED SUM >>
2 REM - FIND NUMBERS EQUAL TO THE SQUARE OF THE SUM OF THEIR DIGITS
5 FOR J=1 TO 100
10 SUM=0 : REM INITIAL SUM OF DIGITS
15 JJ=J*J : REM JJ IS A SQUARE
20 J$=STR$(JJ) :REM CONVERT JJ TO A STRING VARIABLE J$
25 REM -- LINES 30 - 60 TAKE EACH DIGIT OF J$ AND ADD ITS VALUE TO SUM ---
30 FOR D=2 TO LEN(J$)
40 V=VAL(MID$(J$,D,1))
50 SUM=SUM+V
60 NEXT D
65 SS=SUM*SUM : REM > GET THE SQUARE OF THE SUM OF THE DIGITS
70 IF ABS(SS-JJ)<1E-4 THEN PRINT JJ"IS A SOLUTION"
80 NEXT J